home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
cdecl
/
typedef.mln
< prev
next >
Wrap
Text File
|
1990-06-01
|
2KB
|
61 lines
;Beginning compilation on /u/kranz/cdecl/typedef.scm
INPUT-TYPEDEF
PARSE-TYPE
PARSE-ATYPE
PARSE-STYPE
STRUCT-OR-UNION
PARSE-SLOT-TYPE
INITIALIZE-TYPES
BASE-TYPE
ISA-UNION?
ISA-STRUCT?
UORS-SLOTS
ISA-PROCP?
PROCP-RETURNS
ISA-POINTER?
POINTER-TO
ISA-ARRAY?
ARRAY-SIZE
ARRAY-TYPE
POINTED-TO-BY
SIZE-OF
TO-GET-TYPE
TO-SET!-TYPE
TO-CHECK-TYPE
TYPE-TAG
UIS
EMIT-TYPEDEFS
EMIT-CHK-PROCS
;** Warning: unreferenced variable READ-ONLY
; Location: in definition of EMIT-ARRAY-PROCS
EMIT-ARRAY-PROCS
;** Warning: unreferenced variable TYPE-FILE-ROOT
; Location: in definition of EMIT-STRUCT-PROCS
EMIT-STRUCT-PROCS
SLOT-GETSET
(VARIABLES
FREE (CHAR-DOWNCASE STRING-APPEND OPEN-OUTPUT-FILE NEWLINE PRETTY-PRINT
CLOSE-PORT SYMBOL->STRING STRING->LIST CHAR-UPCASE APPEND LIST->STRING
STRING->UNINTERNED-SYMBOL CONS* MAX NUMBER? GETPROP LIST-REF FOR-EACH
FORMAT STRING->SYMBOL MAP INTEGER? MEMQ EQUAL? NO-MORE-COND-CLAUSES
LIST LENGTH ERROR PUTPROP)
EARLY-BOUND (+)
DEFINED ()
LSET (INPUT-TYPEDEF PARSE-TYPE PARSE-ATYPE PARSE-STYPE STRUCT-OR-UNION
PARSE-SLOT-TYPE INITIALIZE-TYPES BASE-TYPE ISA-UNION? ISA-STRUCT?
UORS-SLOTS ISA-PROCP? PROCP-RETURNS ISA-POINTER? POINTER-TO ISA-ARRAY?
ARRAY-SIZE ARRAY-TYPE POINTED-TO-BY SIZE-OF TO-GET-TYPE TO-SET!-TYPE
TO-CHECK-TYPE TYPE-TAG UIS EMIT-TYPEDEFS EMIT-CHK-PROCS EMIT-ARRAY-PROCS
EMIT-STRUCT-PROCS SLOT-GETSET)
SET ()
ERROR ()
INTEGRATED (CADAR CAAR FX+ FX/ FX* NOT OR-AUX >= CDR ELSE = CADDR
PAIR? SYMBOL? CADR EQ? CAR)
LOCAL ()
UNREFERENCED (INPUT-TYPEDEF INITIALIZE-TYPES PROCP-RETURNS EMIT-TYPEDEFS))
; assembled 25896 bytes